home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / CHGFONT < prev    next >
Text File  |  2001-03-02  |  2KB  |  39 lines
  1. 10    ! *******************************************************
  2. 20    ! Example: Changing the Font
  3. 30    !
  4. 40    ! This program shows how to change the font on displayed
  5. 50    ! text. The numbers shown in (), such as 6 BY 12, show
  6. 60    ! the number of pixels wide X number of pixels high.
  7. 70    !
  8. 80    ! *******************************************************
  9. 90    !
  10. 100       DIM Font$[100],Text$[100]
  11. 110   !
  12. 120       DATA  "6 BY 12",        "Example Text (6 BY 12)"
  13. 130       DATA  "6 BY 12,BOLD",   "Example Text (6 BY 12, BOLD)"
  14. 140       DATA  "8 BY 16",        "Example Text (8 BY 16)"
  15. 150       DATA  "8 BY 16,BOLD",   "Example Text (8 BY 16, BOLD)"
  16. 160       DATA  "9 BY 15",        "Example Text (9 BY 15)"
  17. 170       DATA  "9 BY 15,BOLD",   "Example Text (9 BY 15, BOLD)"
  18. 180       DATA  "10 BY 20",       "Example Text (10 BY 20)"
  19. 190       DATA  "10 BY 20,BOLD",  "Example Text (10 BY 20, BOLD)"
  20. 200       DATA  "18 BY 30",       "Example Text (18 BY 30)"
  21. 210       DATA  "18 BY 30,BOLD",  "Example Text (18 BY 30, BOLD)"
  22. 220       DATA  "end","end"
  23. 230   !
  24. 240       ASSIGN @Disp TO WIDGET "LABEL";SET ("X":50,"Y":25,"WIDTH":500,"HEIGHT":100,"TITLE":" Example: Changing the Font")
  25. 250       CONTROL @Disp;SET ("SYSTEM MENU":"Quit")
  26. 260       ON EVENT @Disp,"SYSTEM MENU" GOTO Finis
  27. 270  Top:!
  28. 280       RESTORE
  29. 290       LOOP
  30. 300           READ Font$,Text$
  31. 310       EXIT IF Font$="end"
  32. 320           CONTROL @Disp;SET ("VALUE":Text$,"FONT":Font$)
  33. 330           WAIT .75
  34. 340       END LOOP
  35. 350       GOTO Top
  36. 360  Finis:!
  37. 370       ASSIGN @Disp TO *! Delete LABEL widget
  38. 380       END
  39.